(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     14415,        364]
NotebookOptionsPosition[     13236,        338]
NotebookOutlinePosition[     13602,        354]
CellTagsIndexPosition[     13559,        351]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"Classify", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.697", ",", "0.460"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.774", ",", "0.376"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.634", ",", "0.264"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.608", ",", "0.318"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.556", ",", "0.215"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.403", ",", "0.237"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.481", ",", "0.149"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.437", ",", "0.211"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.666", ",", "0.091"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.243", ",", "0.267"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.245", ",", "0.057"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.343", ",", "0.099"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.593", ",", "0.042"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.719", ",", "0.103"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.360", ",", "0.370"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.593", ",", "0.042"}], "}"}], "\[Rule]", "\"\<B\>\""}], ",", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.719", ",", "0.103"}], "}"}], "\[Rule]", "\"\<B\>\""}]}], 
    "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.788508550489458*^9, 3.788508553954686*^9}, {
  3.7885090516742373`*^9, 3.788509076248631*^9}, {3.788509170626419*^9, 
  3.788509172948202*^9}, {3.788509251880921*^9, 3.7885092943200483`*^9}, {
  3.7885093562816963`*^9, 3.788509385188859*^9}, {3.788509420387435*^9, 
  3.7885095275174627`*^9}, {3.788509647470684*^9, 3.788509675353115*^9}, {
  3.788510008983264*^9, 3.78851002546251*^9}},
 CellLabel->"",ExpressionUUID->"232c6197-286a-4675-adcc-a8fa9358a626"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", "5.555"}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", "16.321"}], "\n", 
 RowBox[{"c", "=", 
  RowBox[{"-", "6.04"}]}], "\[IndentingNewLine]", 
 RowBox[{"p1", "=", 
  RowBox[{"ContourPlot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "a"}], "*", "x"}], "-", 
           RowBox[{"b", "*", "y"}], "-", "c"}], "]"}]}], ")"}]}], ")"}], 
     "\[Equal]", "0.5"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "1"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"p2", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.697", ",", "0.460"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.774", ",", "0.376"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.634", ",", "0.264"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.608", ",", "0.318"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.556", ",", "0.215"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.403", ",", "0.237"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.481", ",", "0.149"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.437", ",", "0.211"}], "}"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"PointSize", "[", "Large", "]"}]}], "}"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.666", ",", "0.091"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.243", ",", "0.267"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.245", ",", "0.057"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.343", ",", "0.099"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.593", ",", "0.042"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.719", ",", "0.103"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.360", ",", "0.370"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.593", ",", "0.042"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.719", ",", "0.103"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", "p3"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7885102607608128`*^9, 3.788510300126171*^9}, {
   3.788510330720992*^9, 3.788510451302547*^9}, 3.78851048398857*^9, {
   3.788510645549803*^9, 3.788510714954824*^9}, {3.7885107734416237`*^9, 
   3.7885108018777437`*^9}, {3.788510841507628*^9, 3.7885109200574617`*^9}, {
   3.7885109735241327`*^9, 3.788511076824688*^9}, {3.788511191379128*^9, 
   3.7885112058223743`*^9}, {3.788511387244623*^9, 3.788511491150893*^9}, {
   3.788511662745483*^9, 3.78851168808633*^9}, {3.788511769984804*^9, 
   3.788511779819631*^9}, {3.788512717358357*^9, 3.788512736878414*^9}, {
   3.788512967914307*^9, 3.788513011684114*^9}, {3.788513209453644*^9, 
   3.788513298575945*^9}, {3.788513331297339*^9, 3.788513333970837*^9}, {
   3.788513375155121*^9, 3.788513385406311*^9}, {3.788513622552492*^9, 
   3.7885136654697104`*^9}, {3.788513770857134*^9, 3.7885138317525806`*^9}, {
   3.7885140047609797`*^9, 3.788514086899302*^9}, {3.7885149058531523`*^9, 
   3.788515088814579*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"a015f050-8e98-4a7a-8cde-9627f635bbf5"],

Cell[BoxData["5.555`"], "Output",
 CellChangeTimes->{{3.7885150643599777`*^9, 3.7885150895606833`*^9}},
 CellLabel->
  "Out[316]=",ExpressionUUID->"3019f9f9-90d1-49d3-b66b-ed6ed25fb465"],

Cell[BoxData["16.321`"], "Output",
 CellChangeTimes->{{3.7885150643599777`*^9, 3.788515089578931*^9}},
 CellLabel->
  "Out[317]=",ExpressionUUID->"fd37368e-d59b-41ce-830c-7a5b24b27882"],

Cell[BoxData[
 RowBox[{"-", "6.04`"}]], "Output",
 CellChangeTimes->{{3.7885150643599777`*^9, 3.788515089585004*^9}},
 CellLabel->
  "Out[318]=",ExpressionUUID->"cdeb8fcc-2c5e-4176-978a-ffbbbc544698"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.788515108362175*^9, 
  3.788515108389965*^9}},ExpressionUUID->"186deac1-cc1e-47f1-9608-\
8da60fd785ab"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.788515110198084*^9, 
  3.788515110226609*^9}},ExpressionUUID->"37362c79-54b7-4445-b7f3-\
124e8e16c8c0"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.788515111213799*^9, 
  3.7885151112418747`*^9}},ExpressionUUID->"e2a28410-0684-452d-b8a4-\
d7e63043fdcd"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxFVgs41NsWx1GIQ6lTCqFUXyqudyn9lJt36ngcHDpFJ48K1Q1RX87hFicl
j8iJm1clx/OMPMv7/WaGwXiUMcMwzFDpljzuNP2bu7///9t7fXvtvdfvt9ba
a6u4+dqcExESEgrl/V/6r20WGrqu9Cnvx9iW7Dr3aJCLXPKBPMeFZNiF6l92
4MlPCkIs9ZeS4TNY5D1YxIXwJLdue30KbBgNG9J9uYhRNed9aWic/Y2t7cPF
j7U3YudPpoGv7s3FWEG0TqptGlwTh8tLLnKxd8jiwmqnNEzeZlfLCHNRW2xh
fCz9CfjqgxxMysaWelx+Cjstt7aZWA4ahWjaJfPPINQS7/Q+kgPG6Vj3srUZ
iOKfywGLMhR4P+I5IoXKVzXt5KDEP0uWY5qJZabB1f7qGcKOLFzgD2Yg5FYj
zcrMgv+ddWezrWZAPmAY5MjNQUSK03eXKNP4p5d00gzyse3L9jHTyHaK88ib
zYfvls2NUlemsZQb/OyI6d+4oXGXI7VhmsBPwvLKl8YGzVRXWvI3EuheVcYK
CWxQX430nEgqwADfDjYafB+6XZN+gcx7BSWTm9iQ8dny/N5/X0At2ebQzfIp
eH56QJ9jFxL4pnD9lztnI3cX48Xiuf6IsUl8DLCTmjMqwUU+nknIn1J87Fha
AtqfldZnXSZxNCguVz2vFKZ8wyYx7qq4nn6kDBw5d4VZ8UlsnA70expVhvUa
0n+7lbAIfl6ieCZn52d1FtJUh9dGMV8ReCagYNT7yuh8Ocri3pYOpUxgRXxA
stu9Agdfi3q72U1glXHpXRfdSpz7/af0jDUT+BpXVSjk+3Mc/xn4Xv1PoyqQ
DhjrnA8axx92rLCN9VUEvnGwNx2UjxCrxtREFceeycSjt8qRBverCXxMeDdU
DGh3VIN+elS7N5kJT713f0nOVIPKpsfTXJgE/zUw4w948za5avLxNYjwmZEL
F2MirGCH7fHyGhTeURovqGeApnYzoXNjLbbz/ctAes6l1QsutdifxBVLdGTg
epwYKSqrFiKGo5Z1uxmQtf9+Xp9dS/Axhmcr1Xm52+uguC/P34w9huQl65Xz
qAONz+MYdJwXTUSn6lBWu5xuum4MuqlKA/le9UR80yEzfaTJk1SP4ovLt019
6Nh6fDVj1KQB0XwcdOj83mC6J7ABWZLbD77So0NhjfHPbdENWPax2GQkTCf2
aSD4GYWU9oTI5iONcF1/bV2Ryyi2XNndv/iykeBjFOK6lzTZa5rQ5WRLqSS9
QfwJ5cjitCYwhd7d/kfIG1hdziBrMJrgqMntumL7hljXTOB9DadbCfJx8c3w
X2jONDv5Gq1Zwhpm0i2Ef0cwp2NubnKqBTtIiv6+nGF4SqS0RC63EPYNY1XH
W3011Va0VGdXWiQOIz7UKThOrxUHHymbWVoOE/HXSvhjCHKThUEy063YGqb1
L4rWEBgG+w6n7W2D8/S4/9vxQYyonJFVP9NG8D3Iy0OzY4WkNvjFZbyvkBpE
eoJaCvt9GyyVk15aBtDweWyt/L2f2wl+aZDer9eeHdiO46WSD3W1aGCKHgpY
Cm8ncA9gq2c+2xodGOr2Ywnd7Meu4LTDw6QO8OlY6cNRc79oVfFOLOh8cLES
6kPA5ZaCo0WdhF+okK0kPdbs7IS9ckCySjMVh8/pd3sMdiJrT8mbTQ+oRH50
ga9e1IsHI1tqgy278OHaRNHQhl6QNexjYkO6wDc3pgelkQ2Gx/K78Dx1vcmB
Pyi4kXFzREaiG2Yq7gzpMxQULSrYTG3shlHzk73B+yngL1PtJvKCjLrrjcUG
/t0woAT/UpL1//6bXq/cJ/OQgW58jvKT2CHbhYexlPAVPbLATp37v+5XMSQj
YuopfWGmE/2bk77bZkSG6dKV8o7STsE5X+tDO7bpp0rNp5Dx4S43ZGdOG9pb
s8VW2skI3zWjLHGrDawh8cL2HrLA76ejw2sNRCm4V/2TfXhXC3QOuSUoKVGQ
qDnv/oNeM7Q8blnN/0oRxOWPHvYOEx4UKAn7p9Pkm2HiEy/u7EUR5IXY8SFb
hxYKFldXtI3w8qwxLjRPeJlC8FkH5bDl1HfqPRArM7P2t6wR8JxrZaZUzrtH
tIbXXYjjyd/ulb7rvrP5PNmUWhw2Z1oD81laJp0na85J+O2pLkepwyeLnbt6
BfdohGgfS8SZ51eNxVuHuUVgSgandr7shcVH67vhBUVo+uhU0lPVK6gbT4v8
GMoqVPh02IgMKeRjX/9wjPNJKtZoazd9vJMHzYqjgfUOVEEds6zwb3H/NxUR
0sUrV6+mC+LOXq44dyEuDep7vYLEmVRBXW4L7V97iEXFCYZqontuKirmK/3q
Od/mY5ClqGczYNmHHAVxDcOqUCTm2qb4Bvbh2wth3ymWlkpeH/4HcpwhIQ==

    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
         86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
         102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
          116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
         129, 130, 131}]},
       RowBox[{
         FractionBox["1", 
          RowBox[{"1", "+", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
               RowBox[{"6.04`", "\[VeryThinSpace]"}], "-", 
               RowBox[{"5.555`", " ", 
                 TagBox["x", HoldForm]}], "-", 
               RowBox[{"16.321`", " ", 
                 TagBox["y", HoldForm]}]}]]}]], "\[Equal]", "0.5`"}]],
      Annotation[#, (1 + 
         E^(6.04 - 5.555 HoldForm[$CellContext`x] - 16.321 
           HoldForm[$CellContext`y]))^(-1) == 0.5, 
       "Tooltip"]& ]}], {{}, {{}, 
     {RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6], 
      PointBox[{{0.697, 0.46}, {0.774, 0.376}, {0.634, 0.264}, {0.608, 
       0.318}, {0.556, 0.215}, {0.403, 0.237}, {0.481, 0.149}, {0.437, 
       0.211}}]}, {}}, {}, {}, {}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[Large], AbsoluteThickness[1.6], 
      PointBox[{{0.666, 0.091}, {0.243, 0.267}, {0.245, 0.057}, {0.343, 
       0.099}, {0.593, 0.042}, {0.719, 0.103}, {0.36, 0.37}, {0.593, 0.042}, {
       0.719, 0.103}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "GridLinesInFront" -> True},
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7885150643599777`*^9, 3.788515089755381*^9}},
 CellLabel->
  "Out[322]=",ExpressionUUID->"3c962518-50b1-4f5d-b522-34ff4f92fc50"]
}, Open  ]]
},
WindowSize->{808, 611},
WindowMargins->{{83, Automatic}, {Automatic, 50}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (2018\:5e743\
\:670828\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2639, 79, 151, "Input",ExpressionUUID->"232c6197-286a-4675-adcc-a8fa9358a626"],
Cell[CellGroupData[{
Cell[3222, 103, 3796, 97, 350, InheritFromParent,ExpressionUUID->"a015f050-8e98-4a7a-8cde-9627f635bbf5"],
Cell[7021, 202, 186, 3, 34, "Output",ExpressionUUID->"3019f9f9-90d1-49d3-b66b-ed6ed25fb465"],
Cell[7210, 207, 185, 3, 34, "Output",ExpressionUUID->"fd37368e-d59b-41ce-830c-7a5b24b27882"],
Cell[7398, 212, 200, 4, 34, "Output",ExpressionUUID->"cdeb8fcc-2c5e-4176-978a-ffbbbc544698"]
}, Open  ]],
Cell[7613, 219, 152, 3, 30, InheritFromParent,ExpressionUUID->"186deac1-cc1e-47f1-9608-8da60fd785ab"],
Cell[7768, 224, 152, 3, 30, InheritFromParent,ExpressionUUID->"37362c79-54b7-4445-b7f3-124e8e16c8c0"],
Cell[CellGroupData[{
Cell[7945, 231, 154, 3, 30, InheritFromParent,ExpressionUUID->"e2a28410-0684-452d-b8a4-d7e63043fdcd"],
Cell[8102, 236, 5118, 99, 376, "Output",ExpressionUUID->"3c962518-50b1-4f5d-b522-34ff4f92fc50"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

